unit glue;

interface

uses types;

	procedure  CallCode(selector: integer; stuff: ptr; var data: LongInt; var result: Integer; codePtr: UniversalProcPtr); external;

end.